home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 67
/
067.d81
/
wall street boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
765b
|
18 lines
100 poke53280,0:poke53281,0
110 print"[147][159][176][192][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]";
120 a$="[171][156][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
130 b$="[171][154][192][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
140 c$="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
150 printc$;:fori=1to5:printa$c$b$c$;:next
160 print"[173][192][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]";
170 fori=217to242:pokei,peek(i)or128:next
180 a$="[146][155][162][152][157] [157] [157] [157] [157] [157] [157] [157][151][146][184][145][145][145][145][145][145][145][145]"
190 poke214,7:print"[145]";:fori=1to38:printa$;:next:print"[152]"
200 fori=1to5:reada$:gosub230:next
210 poke214,24:print"[145]"tab(15)"[155] [204][207][193][196][201][206][199] [145][157][157][157][157][157][157][157][157][157][146][175][175][175][175][175][175][175][175][175]"
220 poke46,59:poke48,59:poke50,59:poke52,160:clr:load"wallstreet",8
230 printspc(20-len(a$)/2)""a$:return
240 data"[215] [193] [204] [204][160][211] [212] [210] [197] [197] [212] [160] [215] [201] [218] [193] [210] [196]","by [215]illiam [207]. [206]elson [202]r."
250 data"[208]ublished on [204][207][193][196][211][212][193][210] #67","[211]ubscriptions 1-800-831-2694"
260 data"[195]opyright ([195]) 1989 [215]illiam [206]elson"